Celestin Apprentice 4/Apprentice-Release4.iso/Utilities/Programming/EnterAct 3.5/Drag_on Modules/hAWK example progs/$Index_DeNumber

Text File | 1994-01-26 | 182 b | 10 lines | [TEXT/KEEN]

#$Index_DeNumber : intended to strip numbers from an index,
#leaving only the index entries. For repaging an index.


match($0, /[0-9]/)    {
    $0 = substr($0, 1, RSTART-1)
    }

    {print}